library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.2     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.0
## ✔ ggplot2   3.4.2     ✔ tibble    3.2.1
## ✔ lubridate 1.9.2     ✔ tidyr     1.3.0
## ✔ purrr     1.0.1     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(dplyr)
library(readxl)
df <- read_excel('EY39Data.xlsx')
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, A1, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="A1",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("A1.png")

#####serrato

dummy <- df$A3

p <- ggplot(data=df)+ geom_line(aes(Hours, dummy, group=ID, colour=ID), data = . %>% filter(ID %in% c(“Default” , “mCherry”, “Alexa594”))) p <- p +labs(title=“dummy”, x =“Time (hours)”, y = “Fluorescence (AU)”) p

p <- ggplot(data=df)+ 
  geom_line(aes(Hours, A3, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="A3",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("A3.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, A5, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="A5",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("A5.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, A7, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="A7",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("A7.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, A9, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="A9",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("A9.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, C1, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="C1",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("C1.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, C3, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="C3",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("C3.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, C5, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="C5",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("C5.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, C7, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="C7",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("C7.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, C9, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="C9",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("C9.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, E1, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="E1",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("E1.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, E3, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="E3",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("E3.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, E5, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="E5",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("E5.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, E7, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="E7",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("E7.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, E9, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="E9",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("E9.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, G1, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="G1",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("G1.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, G3, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="G3",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("G3.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, G5, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="G5",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("G5.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, G7, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="G7",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("G7.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, Blank1, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="Blank1",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("Blank1.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, Blank2, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="Blank2",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("Blank2.png")
p <- ggplot(data=df)+ 
  geom_line(aes(Hours, Blank3, group=ID, colour=ID),
                data = . %>% filter(ID %in% c("Default" , "mCherry", "Alexa594")))
p <- p +labs(title="Blank3",
        x ="Time (hours)", y = "Fluorescence (AU)")
p

#ggsave("Blank3.png")